home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / toi / intro2b.bas < prev    next >
BASIC Source File  |  1994-06-01  |  253b  |  12 lines
  1. 5 CLS
  2. 8 INPUT"このＣＤには曲が何曲入っていますか？",X
  3. 10 RANDOMIZE TIME
  4. 18 A=INT(RND*X)+1
  5. 20 CD PLAY A
  6. 30 INPUT C
  7. 40 IF C=1 THEN CD STOP
  8. 45 WHILE ATARI=0
  9. 50 INPUT B
  10. 60 IF B=A THEN PRINT"正解！！！！！！！！！！！！！！！！！":ATARI=1
  11. 70 WEND
  12.